Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/1159.ZIP/OSSFMTMF.PRG

Text File | 1986-11-20 | 4KB | 169 lines

SET SAFETY OFF
N4='K'
DO WHILE N4#'STOP'
 CLEAR
 @ 1,20 SAY 'Data base in use:  '
 ?? OSS
 ?
 DO CASE
  CASE MULTTV=1
   ?'Identical designations in the '
   ?? TVANUMBER
   ??' field were found.'
  CASE MULTSN=1
   ?'Identical designations in the '
   ?? SERIALNUM
   ??' field were found.'
 ENDCASE
 @ 5,4 SAY 'What would you like to do ?'
 DO WHILE N4#'A'.AND.N4#'B'.AND.N4#'C'.AND.N4#'D'.AND.LEN(TRIM(N4))#0;
  .AND.N4#'E'.AND.N4#'F'
  @ 6,0 CLEAR
  ?'A)  Print out the records.'
  ?
  ?'B)  View the records on the screen.'
  ?
  ?'C)  Both view the records on the screen and print them out.'
  ?
  ?'D)  Modify the information in the records or delete records.'
  ?
  ?'E)  Make a backup copy of all records in this data base.'
  ?
  ?'F)  QUIT (with a backup copy option)'
  ?
  ?
  ?'    Press "RETURN" to return to the previous menu.'
  ?
  ?'    Press "R" to return to the main menu.'
  WAIT '                              ' TO N4
  ??'    WORKING . . .'
  N4=UPPER(N4)
  IF N4='R'
   N4='Z'
   CLOSE DATABASES
   RETURN TO MASTER
  ENDIF
 ENDDO
 DO CASE
  CASE N4='A'
   CLEAR
   @ 7,32 SAY 'WORKING . . .'
   @ 10,8 SAY 'Please do not press any keys until the next option appears.'
   PRINTOUT=1
   VIEW=0
   IF MULTTV=0.AND.MULTSN=0
    DO OSSPRNSE
   ELSE
    GLCALDU=0
    ADDFILE=0
    MODFILE=0
    DO REPINSTP
   ENDIF
  CASE N4='B'
   CLEAR
   @ 7,32 SAY 'WORKING . . .'
   @ 10,8 SAY 'Please do not press any keys until the next option appears.'
   PRINTOUT=0
   VIEW=1
   IF MULTTV=0.AND.MULTSN=0
    DO OSSPRNSE
   ELSE
    GLCALDU=0
    ADDFILE=0
    MODFILE=0
    DO REPINSTP
   ENDIF
  CASE N4='C'
   CLEAR
   @ 7,32 SAY 'WORKING . . .'
   @ 10,8 SAY 'Please do not press any keys until the next option appears.'
   PRINTOUT=1
   VIEW=1
   IF MULTTV=0.AND.MULTSN=0
    DO OSSPRNSE
   ELSE
    GLCALDU=0
    ADDFILE=0
    MODFILE=0
    DO REPINSTP
   ENDIF
  CASE N4='D'
   CLEAR
   @ 7,32 SAY 'WORKING . . .'
   @ 10,8 SAY 'Please do not press any keys until the next option appears.'
    DO OSSMODMF
   N4='Z'
  CASE N4='E'
    CLEAR
    @ 5,0
    ?'        This procedure copies all information for this data base FROM'
    ?'        your fixed disk TO one or more floppy disks, depending on the'
    ?'        size of this particular data base.  In the process of doing this,'
    ?'        the data (if any) which is currently on the FLOPPY DISKETTE(S)'
    ?'        may be destroyed.'
    ?
    ?'        Each data base which is backed up must be backed up on a separate'
    ?'        floppy diskette (or a separate set of floppy diskettes).'
    ?
    ?
    ?
    ?'        Please place a formatted floppy disk into drive "A" and'
    ?
    ?'        press any key other than "RETURN" to continue.  Press'
    ?
   WAIT '        "RETURN" to abort this procedure and return to the menu.' TO N6
    IF ASC(N6)=0
     N4='Z'
     LOOP
    ENDIF
    N4='Z'
    DO DATABACK
    LOOP
 CASE N4='F'
  ?
  ?
  DO WHILE N4#'Y'.AND.N4#'N'
  CLEAR
    @ 5,0
    ?'        This procedure copies all information for this data base FROM'
    ?'        your fixed disk TO one or more floppy disks, depending on the'
    ?'        size of this particular data base.  In the process of doing this,'
    ?'        the data (if any) which is currently on the FLOPPY DISKETTE(S)'
    ?'        may be destroyed.'
    ?
    ?'        Each data base which is backed up must be backed up on a separate'
    ?'        floppy diskette (or a separate set of floppy diskettes).'
    ?
    ?
WAIT '        Do you wish to make a backup copy of this data base ?  (Y/N)';
 TO N4
  N4=UPPER(N4)
  ENDDO
  IF N4='Y'
   ?
   ?
   ?'        Please place a formatted diskette into drive "A."'
   ?
   ?
   WAIT
   DO DATABACK
  ENDIF
  CLEAR ALL
  RUN CD\
  SET COLOR TO
  QUIT
  CASE LEN(TRIM(N4))=0
   CLOSE DATABASES
   SELECT 2
   USE REPWORK
   SELECT 1
   USE &DBNAME INDEX &INDEX1,&INDEX2
   N=0
   NP=N
   RETURN
 ENDCASE
N4='K'
ENDDO
RETURN